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12 
EDTSWFREAINP = read a Line from the input file 18-Sep-19 4 96:41:38 VAX-11 Bliss-32 
14-Sep-1984 2:25:41 DISKSVMSMASTER 

: 1 1 ZTITLE ‘EDTSWFREAINP - read a Line from the input file’ 
H § MODULE EDTSWFREAINP ( ! Read a Line from the input file 
H IDENT = ‘V04-000' ! File: WFREAINP.BLI Edit 
3 4 004 )= 
3 5 ! BEGIN 
3 ? sid ! MASSSESSSSELE SSE ESET TTT TT TTT SST TTP e eee eric c ici icc acc i sic itiiiiiiiiy 
; :* - 
3 9 $009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1 0012 ! . ALL RIGHTS RESERVED. * 
Ps 4 cy 
: ig 88 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH TH ” F SUCH LICENSE AND WITH THE * 
H 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
; 13 dt : 7 TRANSFERRED. * 
Py ; a 
; $f 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $§ 88 ¢ : :* CORPORATION. & 
3 ‘® ® 
: 24 bose 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @ 0026 1 !* * 
i? ae 0027 1 !* * 
: 4 43 : See e ARR RAAEA EEA EA RA AAA E EAA RE AEE EA AAA AERA A RARE 
. ' 
3 $9 $080 1 
3 He 0031 1 !++ 
; ¢ 003¢ : FACILITY: EDT -- The DEC Standard Editor 
; 3 0034 1 ! ABSTRACT: 
3 5 0035 1! 
3 3 B38 ! Read a Line from the input file. 
; $ 0038 ' : ENVIRONMENT: Runs at any access mode - AST reentrant 
3 7 se ! AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
3 4g 0042 1 ! MODIFIED BY: 
3 & 0045 1! 
: 644 Boge 1 ! 1-001 - Original. DJS 23-Feb-1981. This module was created by 
, 63 045 1! extract ing routine READ_INPUT from module EDTWF. 
; 46 R206 1 ! 1-002 - Regularize headers. JBS 19-Mar-1981 
, 7 0047 1! 1-08 = Change EOB_LINE to EDT$$Z_E0B LN . JBS 31-Mar-1981 
; | «648 0048 1 ! 1-004 = Remove division from Line number calculations. SMB 14-Jan-1982 
:; «#2649 0049 1 ! 1-005 - Convert i/o to use edt$fileio., STS 15-Jan-198 
+ 0050 1! 1- - Add capability for 15 digit Line nuagers SMB_ 19-Jan-1982 
3 2} 51 1 ! 1-007 = pass header info by gescri tor. STS 20-Jan- 
: ¢ 3 1! 1-008 - fix bugs related to 15-digit Line numbers. SMB 22-Jan-1982 
c 3 055 1 ! 1-009 - check for zero Length descriptor TS 22-Jan- 
; 34 54 1 ' 1-010 - Remove a MOVELINE for original Line numbers, SMB 26-Jan-1982 
oa oe 55 1! 1-011 - Remove original line numbers. | SMB 28-Jan-1982 
; 026 1! 1- \% - Fix bug in Line number assignment for sequenced files. SMB 30-Jan-1982 
; oe 057 1 ! 1-015 = Add a range check for Line number too large. SMB 1-Feb-1982 


: JBS1036 


ee ~4 


age 1 oof | 


aed bs P 
:CEDT.SRCJWFREAINP.BLI;1 (1) 


EDTSWFREAINP EDTSWFREAINP = da line f the input file 1 -1984 AX-11 s- 
coreurs read a Line from the inpu e 16- i. t 98: }1:33 V 32 V Page 


-Sep-1984 DISKS vMgh STER: cto 1 SRCSWFREAINP. BLI;1 


r 
Check for records er Eben ¢ 33 2 St tes. § 02 -Jun-1982 


Close the input file on EOF. tes ae19 


Se 
a 


Close the input file on Foosbinn the end of 4. ent buf fgc_onty: JBS 14-Jun-1982 


3 a8 28 1 ! 1-014 = Pass address of 19, re to file routines. ts 03-F eb-1982 

3 1 ! 1-015 = Close input file if Line wasters et 18° Pe serge SMB 06-Feb-1987 

; 60 » 1! 1. 1§ = Deallocate dynamic eartetee* 2 

; 6) 1 ! 1-017 = Add Literals for cal lapie. areteters SIs ot hs r-1982 

: 6¢ § 1! 1- 18 - Remove reference to EDTS 1. JBS 15 st 

; 6 1 ! 1-019 = Clear input file open hag shen closing sts 0 ‘on ee 

; 66 : ! } \- Y - Print a message on a CLOSE err JBS i2= 198 

; 1 i 47098 = 

3 9¢3 1! ix 4 - Print a eck As on Get errors and try again. STS 2 

3 9 63 1 ! 1-025 = Don't check R S_gtetus. go, 11's since error message has already 

: 0 09 1! gone out. 22-Jul-1 

ae 071 1! 1-9 6 = Print out eke” full RMS message rather than just 1_ Liner. STS 23-Jul-1982 
ag: Bore 1 ! 1-027 = Set the text on screen flag for RMS errors. SMB 28-Jul-1982 

Tee 0075 1! 1-028 - Roa ty the flags set for error eossegee (a (again). SMB 17-Aug-1982 

oe 0074 1 ! 1-029 = Modify to use new 48 bit macro. STS 19 

oe 0075 1 ! 1-030 = Don't "lear EDTSSG_MSGFLG; settin EDTSSE. scr guGb is sufficient. JBS 06-Oct-1982 
:; 76 0076 1! 3 1 = Modify to use new Compare macro. STS 20-Oct-19 

ca 2 0077 1! 1- ¢ - Use a different scrolling routine. SMB Meat eei982 

;s 0078 1! 1-033 - Set ED TS$G SCR_REBUILD i we insert a Line in the work file. JBS 01-Nov-1982 
; «#679 0079 1 ! 1-034 - Modify edif 1-035 so we don't disturb the screen data base but don't 

; & 0080 1! have to stouita the screen. JBS c- 

; «CoB 0081 1 ! 1-035 = Note new value for EDT$$G_SCR _tHeD. “78S 02-Mar-1983 

; Hf ae : 1-036 - Improve message about RMS” cae JBS 24-Mar-1983 

3 84 0084 1 
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EDTSWFREAINP 
04000 


FILE, 


_ INPUT 
GET 

“CLOSE; 

In the routine 


EDTSSRD_ILN; 


EDTSK 


EDTSK 
EDTSK 
EXTERNAL REFERENCES: 


SBTTL ‘Declarations’ 
TABLE OF CONTENTS: 
F BLISS (BLISS32) 
EQUATED SYMBOLS: 


REQUIRE "EDTSRC: TRAROUNAM’; 
INCLUDE FILES: 


FORWARD ROUTINE 
REQUIRE "EDTSRC:SYSSYM'; 


x 
i] 
i 
EXTERNAL LITERAL 


ba 

1 

i 

i 
F 


MOR DPODOK— IMF NORM NOOR WOOK UM NoRn AUMsnonrwoo 
DODDS AMAMOMAM IAM IAR ROO ee eee i uernieen 


SSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSS 
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= 


DOonrwmM sw Cs) WII TN OR DOO UM TMOR. DOO CUM TNOPR. DO 
Ce ee ee ee le ee el el el ee el ee ee a ol ee oe oe ee 


tee eee ee eee ee eT oo ee oT oe oe ee) oe) ee ee es ey eee ee sete *e te se tease *e *e te Fe *e*e Fe *e *e *e 


SS 
£ 
ss 
3 

sf 


13 
FREAINP = read a Line from the input file b-5e 1984 02:11:5 VAX-11 Bliss-32 V 
D_ILN = read a tine from the input ile : 3007138 95:32} DISKSVMSMASTER 


-000 
; } } ZSBTTL "EDTSSRD_ILN = read a Line from the input file’ 
; i GLOBAL ROUTINE EDTSSRD_ILN ! Read a Line from the input file 
b4 = 
: 8 FRET es 
: i f | : FUNCTIONAL DESCRIPTION: 
: 1 7 1/ This routine attempts to read a new Line from the regs file. If the 
3 re 7 1: INPUT_RAB field is zero, or if the read fails return 0 to indicate that 
; 14 740 1! there is no more input. If the read succeeds give the Line the next 
3 138 oi } 1 sequential number, and insert it at the end of the text buffer. 
3: 164 708 1 | FORMAL PARAMETERS: 
3 145 744 «1! 
: 4 red | a 
; 148 2 | IMPLICIT INPUTS: 
: 150 749 1 | EDT$$G_SCR_LNS 
3; (151 7 9 1! EDTS$A_CUR_BUF 
ro ¢ 7? 1! EDTSSL_WKk_INSCNT 
: 1 7 ¢ 1! EDTSSA_WK-LN 
3 «6154 7 1! EDT$$Z_E08_LN 
; 155 754 1! EDTS$L_LNOO = L_LNO14 
2 § 755 1! EDTS$L_LNO_ZERO 
; : f 738 ! EDTS$L_LNO_BIG 
: 159 758 1 | IMPLICIT OUTPUTS: 
: 160 7 1! 
: 161 760 1! EDTS$$A_CUR_BUF 
: 16¢ 761 1! EDTSSL_WK_INSCNT 
: 16 168 EB EDTS$$L_10-VF CHD 
; 166 Ores ! EDT$$G_SCR_CHGD 
; 166 765 i ROUTINE VALUE: 
: 168 res 1 i 1 = a line was read 
3 4 708 } } 0 = no more input 
: 171 770 1 | SIDE EFFECTS: 
: ze nak 
Bh te ote 1! NONE 
: «174 773 1! 
: ihe re yt 
; 179 076 BEGIN 
: 179 178 EXTERNAL ROUTINE 
ae 77 EDTSSFMT_MSG, ! Output a message 
: «181 730 EDTSSCALCF IO, ' Do file 1/0 
= § 781 EDTSSINS_LN : NOVALUE, ! Insert a Line in the work file 
: : r ; EDTSSRD_PRVLN; ! Read the previous Line in the work file 
: 185 L 0784 2 RIF XBLISS (BLISS32) 
3 ' 4 2 ITHEN 


4.0-74 P 4 
a eDT she SUFREAINP.BLIG; (3) 


EDTSWFREAINP 
04-000 


tat at ed 
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1 
sry - read a Line from the input file 15-3 


LN = read a Line from the input file 


n“” 


BLOCK, 
Lot, 
0 : LN_BLOCK, 


LN_BLOCK 
: REF CIN_BLOCK, 


*: REF TBCB 
: LNB 


aDononno 
vz 
2- 


o 
<= 
oo 


: WORD 
“LN“PREV : WORD, 

“LN INCR : LN BLOCK 
“LNOO : LNOVECTOR [14], 
$G~SCR_REBUILD; 


(BLISS32) 


mMmmmmmmmmmmmm wD 
coors 


IF ZBLIS 
THEN 
——, 


tI 


ROW 


pa19be 13:29:41 


VAX-11 Bliss-32 V4.0-74 Page 5 
DISKSVMSMASTER:CEDT.SRCJWFREAINP.BLI;1 (3) 


Print file name with error message 
Output the format buffer 

Set for full-screen scrolling 

Turn off the oh tg Bessave 
Translate a message to a string 
Input a character 


Number of screen Lines 

Current text buffer control block 
The count of inserted Lines 

input fil 
oete in 4 “bi 
814749767 .0000 

Pointer to current Line 


open flag 
ake 


Record header buffer for fixed Line nos. 
Previous VFC Line number 
Input Line rumber increment 


1 = rebuild screen data base from the work file 


name 
mode: Line mode or change mode 
screen must be repainted 

there is a message on the screen 


File 
Edit 
is 
is 


MESSAGES ((MAXINPLIN, PRERETCON, ERRINPFIL, INPFILCLO, RECTOOBIG)); 


LOCAL 
RHB_DESC : BLOCK (8, BYTE) 
FILE DESC : BLOCK C8, BYTEd, 


GET; 
LINNO : LN_BLOCK, 


NEW_BUKT, 
SAVE_REBUILD; 


X1F XBLISS (BLISS32) 
RHB_DESC DSC$B_DTYPE} = DSCSK_DTYPE_T; 
RHB-DESC CDSCSB-CLASS) = DSCSK-CLASS~D; 
FILE_DESC [DSC -DIYPE] = DSCSR_DTYPE_T; 
saa FILE-DESC CDSC$BCLASS) = DSCSK~CLASS—D; 


] 
| 
Set to non-reverse video character attributes 


SS = = ~ 


a a a oe ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee ee ee ee ee SS eae a eee ee ee 


13 
DISWFREAINP = read a Line from the input file IB-5e 1984 :11:5 VAX-11 Bliss-32 V4.0-74 P | 
EO TSERD ILN = read a Line from the laout file 1 ~3ep-19 4 95:34:2? TT EKSUMGHASTERSCEDT SRCTUFREAINP.OLI01" (38 


3 te 4 

; 24 4 RHB_DESC [DSCSA_POINTER] = 0; 

; 24 é RHB bese : SCS LEnGTn? = 0; 

; rf FILE Dest DSCSA_POINTER) = 0; 

; 26 FILE“DESC [DSCSW7LENGTH) = 0; 

3 , MAX_CNO = 0; ! assume good 

; 1 272: i length of rhb | 
: ¢ - STRING_DESC (RHB_DESC, 1, EDTSSL_IO_VFCHD); ! set up an address to put seq # 

3 ‘ § ! Try to read a record from input. 

; Be 

: 3 £ IF {.EDTS$A_CUR_BUF CTBCB_INPUT_RAB] NEQ 0) 

: $8 THEN BEGIN 

3 ¢ 25 = GET = EDTSSCALLFIO (EDTSK_GET, EDTSK_INPUT_FILE, FILE_DESC, RHB_DESC); 

: $6 861 i If the get failed but it was not end of file then print out an error 

: er R66 ;_message. 

; 265 0864 3 

; 08 L Bae? ZIF ZBLISS (BLISS32) 

: ef O86, TTHEN 

; 69 i IF (( NOT .GET) AND (.GET NEQ RMS$_EOF)) 

i $59 OB76 8 gee 

; 871 4 IF (.EDTSSG_EDIT_MOD EQL CHANGE_MODE) 

; 1h) 3 THEN 

; 44 & GIN 

; 74 & EDTSSSC_FULLSCLL (); 

; 0875 4 EDTSSSTOP_WKINGMSG (); 

3 0876 Poe EDTSSFIOPR_ERR (EDTS_ERRINPFIL, .EDTSSA_IO_FNAM); 

; 0878 4 ' Output the ‘Press return to continue" 

3 79 4 ! message and wait for ANY key to be pressed before 

; Ose} ? refreshing the screen and returning to change mode 

; e 4° EDTSSMSG_TOSTR (EDT$_PRERETCON); 

; 8 4 EDTSSOUT_FMTBUF (); 

; 4 EDT$$TI_INPCH (1); 

; 5 4 EDTS$SC-NONREVID (); 

3 4 EDT$$G_SCR_CHGD = 1; ! repaint the screen 

; 2 EDTSSC_ASGFLG = 1; ! Don't forget to erase the message Line 
; B89 ELSE 

; 91 EDTSSFIOPN_ERR (EDTS_ERRINPFIL, .EDTS$A_IO_FNAM); | 
; 9 3 a1 | 
; 9% IF_.GET 

; 95 THEN 
: 38 2 a BEGIN 

; 38 2 : Determine the next Line number 

; 4 


ae 


$$  ____—. 
| 


13 
EDTSwWFREAINP EDTSWFREAINP = read a Line from the input file 18-50 -1984 02:11:53 VAX-11 Bliss- 4.0-74 
v04~000 EDTSSRD-ILN = read a Line from the input file ieesepeiobe $o:o5s4)  DIRKSVMGMASTERSLEDT SRCTWEREAINP.BLIGT?” (35 
g 


IF .RMB_DESC CDSCSW_LENGTH] NEQ 0) 
BEGIN 
MOVELINE (EDTSS$L_L49 ?Hu, LINNO); 
LINNO CLN.LOJ = 7-RHB_DESC CDSCSA POINTER; | 
IF (. EDTSSL_LN_PREV GEQU .LINNO CLN_LOJ) ! | 
ADDLINE (EDTS$L_LNOO [10], EDTSSL_LN_INCR, EDTSS$L_LN_INCR, MAX_LNO); 


91 
1 IF (.MAX_LNO EQL 0) 
1 TH 
1 BEGIN 
1 EDTSSL_LN_PREV = . IWNg CLN LO]; 
1 MULTLINE TEDTS$L_LNOO (5), CINNO, LINNO); 
ADDLINE (LINNO, EDTSS$L_LN_INCR, EDTS$A_CUR_BUF CTBCB_INPUT_LINE], MAX_LNO); 
1 
1 END 


SE 
ADDLINE (EDTS$A_CUR_BUF CTBCB_INPUT_LINEJ, EDTS$L_LNOO (5), ' 
EDTSSA_CUR_Buf CTBCB_INPUT_LINEJ, MAX_LNO); 


vo 


SOoOooooooooooooooooooo°0°oo 


te 
! If the next Line number is greeter than the maximum allowed, stop reading 
} records and jump to code which displays end of buffer 


NOV SUNOCO OONOUE WIN O 


RS ee 
oo 


LF _{CCMPLNO (EDTSSL_LNO_BIG, EDTSSA_CUR BUF CTBCB_INPUT_LINE]) GEQ 0) AND (.MAX_LNO EQL 0)) 
BEGIN 


Wnt — 


+ 
! The read suceeded and the Line number is good. Insert the record at the end of the buffer. 
Do not disturb the screen data base. 


SAVE REBUILD = .EDTS$G_SCR_REBUILD; 
EDTSS$G_SCR_REBUILD = 1; 


| 
IF (.FILE_DESC COSCSW_LENGTH] GTR 255) THEN EDTSSFMT_MSG (EDT$_RECTOOBIG); 
| 
| 
| 
| 


a] 


Owe 
DODOOOOOGGOOOSHOOLOOOOD oo 
MEUM SO OONOUE WW -OOONOUES UN O00 


oD 
PRES 


EDTSSINS_LN (.FILE_DESC CDOSCSA POINTER], MIN (.FILE_DESC CDSCSW_LENGTH], 255)); 
= EDT$$G_SCR_REBUILD'= .SAVE_REBOILD; 


! In case we are doing an insert on another buffer (as in the 
case of a CUT command), do not screw up the insert count. 


oo 


EESPECESSS 


oo 
ae 


SUB INE (NUMBER_ONE, EDTSSL_WK_INSCNT); 
EDTSSRD_PRVLN (J; 
MOVELINE (EDTSSA_CUR_BUF CTBCB_INPUT_LINE], EDTSSA_WK_LN CLIN_NUM]); 


'¢ 
on VMS deallocate all dynamic descriptors used 


ZIF ZBLISS (BLISS32) 
THEN 


PEPVDIVLIVIVIVIVLV IVI LV IVSVLVSTLVS TSU USI SVSISUSI OSI B™ OS9 EB BB BS BB IPA A AA NA NINA IIT EU 


BNO VE WO OONOU ES wl 


PANAMA 


AINP = read @ Line from the input f 


F 13 | 
Le 16-Sep-1984 02:11:5 VAX=11 Bliss-32_ v4.0-74 p 
le 19-88-1382 95:31:2 STEKSVMEHASTERSCEDT SRCTWFREAINP.BLIci 2" (38 


Ae 


- read a Line from the input f 


And return success 


RETURN (1); 
N 


IF _( NOT (EDTSSCALLFIO (EDTSK CLOSE, EDTSK_INPUT_FILE, FILE_DESC, RHB_DESC))) 
EDTSSFMT_MSG (EDTS_INPFILCLO); 

EDT$$G_INPUT_OPN = 0; 

END 


The read failed, close the file and indicate end of buffer. 


oooono 


‘G2 09 Co CD CD 


0 
5 


333333 


END; 
IF ( -EDTSSG_INPUT_OPN AND (.EDTS$A_CUR_BUF CTBCB_INPUT_RAB] NEQ 0)) 
BEGIN 
IF ( NOT (EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_INPUT_FILE, FILE_DESC, RHB_DESC))) 
EDTSSFMT_MSG (EDTS_INPFILCLO); 
matali = 0; 
TS$A 


WK 
T$$A_CUR_BUF 


OB_LN; 
“CUR_ TBCB_CHAR-POS) = 0; 
TS$$A_CUR_BUF 


ED LN = frees? E 
ED ® 
ED TBCB-INPUT_RAB) = 0; 


on VMS deallocate all dynamic descriptors used 


SSse32 


RIF ZBLISS (BLISS32) 
THEN 


Soss 


wm 


w 


STRSFREE1_DX (FILE DESC); 
DESC); 


STRSFREE1~DX (RHB 


And return failure 
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RETURN (0); 
END; ! of routine EDTSSRD_ILN 


ELS 
peels 
EDTSSFMT_MSG (EDTS_MAXINPLIN); 
-TITLE EDTSWFREAINP EDTSWFREAINP - read a Line from th 
| 


13 
NP = read a Line from the input file 18- -Sep- 


| 
EDTSWFREAINP EDTSWFREAT 1984 :5 VAX=11 Bliss-32 V4.0-7 Pa 9| 
Tbe 000 EDTS$RD_ILN = read a Line from the input file 14-Sep- oe 93: te 7 DISKSVMSMASTER:CEDT. sre WFREAINP.BLI; hha wed 
; e input file 
.IDENT \v04-000\ 
EXTRN EDTSK_INPUT FILE | 
sEXTRN EDTSK-GET, EDTSK gLOSE | 
*EXTRN EDTSSEMT _ASG, EDTS$SCALLFIO 
sEXTRN EDTSSINS LN, EDT$$RD_PRVLN 
TEXTRN EDTSSFIOPN_ERR, EDTSSOUT_FMTBUF 
“EXTRN EDT$$SC_FUCLSCLL 
eEXTRN EDTSSSTOP_WKINGMSG 
TEXTRN EDTSSMSG_TOSTH, EDTS$TI_INPCH 
-EXTRN EDT$$SC_RONREVID | 
sEXTRN STRSFREE1 DX, EDT$$G_SCR_LNS 
-EXTRN EDTSSA_CUR BUF, EDTSSL_WR_INSCNT 
“EXTRN EDTS$$G_INPOT_OPN 
-EXTRN EDTSSL_LNO_ZERO 
“EXTRN EDTSS$L-LNO-BIG, EDTSS$A_WK_LN 
TEXTRN EDT$$2-E0B-LN, EDTSS 1, VF CH HD 
“EXTRN EDTSS$L-LN_PREV EDTS 
EXTRN EDTSSL-LNOO. 61 $6 sft Rea etD 
EXTRN EDTS$$A_10_FNAM, CDTS$G_EDIT_MOD 
EXTRN EDT$$G-SCR_CHGD 
-EXTRN EDTSSG_MSGFLG, EDTS_MAXINPLIN 
XTRN EDTS_PRERETCON, EDTS_ Ld tad {t 
EXTRN EDTS-INPFILCLO, EDTS-RECTOOBIG 
EXTRN STRSCOPY_R 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 .ENTRY EDTSSRD_ ILN, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0732 
5B 000000006 00 9€ 00002 MOVAB FIRST WORD, R11 ; 
SA 900000006 00 9E 00009 MOVAB EDTS TSSEMT _MSG, R10 : 
59 000000006 00 9€ 00010 MOVAB OM : 
38 900000006 00 9€ 90017 MOVAB ih. CUR_BUF, R8 ; 
57 000000006 00 9 001g MOVAB seu R7 ~ : 
Se 8 C 999 SUBL2 : 
20 AE 02060000 8F 00 00028 MOVL an RHB_DESC > 0846 
18 AE 020E0000 8F Dd 00 0 MOVL #344719 6; FILE_DESC : 0848 
¢4 AE D& 00038 CLRL - RHB_DES > 0845 
C AE D4 000 CLRL—EsFILE Estee + 0847 
56 D4 000 ; CLRL AX_CNO + 0849 
6 D 0004 PUSHL #2 : 0850 
000000006 F due PUSHAB EDTS$L_10_VFCHD : 0851 
4 AE 9F 0004 PUSHAB I : 
000000006 © 05 Fe ooo CALLS, #30 7STRSCOPY 
98 6 p 5 MOVL EDT S$arc UR_BOF , : 0856 
2a sO TSTB 42¢RO)” ; 
, 024 $1 90080 BRU, 25S 
AE H! 8 60 18 PUSHAB RHB_DESC : 0859, 
9F 0006 PUSHAB FILE DESC ; 
900000006 dD PUSHL = #EDTSK_INPUT_FILE : | 
000000006 EoD if yee ee | 
99 $ 8 7 MOV RO, GET : 


H 13 
EDTSwFREAINP EDTSWFREAINP = read a Line from the input file 16-Sep-1984 02:11:53 VAX-11 Bliss-32 V4.0-74 Pa 10 | 
704-000 EDTS$RD_ILN = read a Line from the input file 12286871382 95 aba DLSKSVMSMASTERSCEDT SRCTWFREAINP.BLIGTo™ (3) | 
7F E 7¢ BLBS GET, 4 ; 0868 ; 
0001827A BF ; 7F cHPL eT. 798938 : | : 
000000006 p Ist EDT$$G_EDIT_MoD F 0871 ; 
900000006 00 FB CALLS 40, EDT$$SC_FULLSCLL : 0874 ; 
0000006 FB 0009 CALLS # goTs35 100 WK INGMSG ; 0875 : 
990000006 DD 0009E PUSHL EDTS$A_I0_FNAM ; 0876 : 
G BF DD O00A4 PUSHL acDTs ERRINPF IL ; : 
000000006 00 2 FB OOOAA CALLS EDTss IOPN_ERR ; : 
000000006 8F DD 00081 PUSHL #EDT$ PRERETCOR ; 0882 ; 
990000006 99 1 FB 00087 CALLS #1, EDTS$SMSG_TOSTR : ; 
G 0 FB 0008 CALLS #0, EDTS$SOUT-FMTBUF : 0883 : 
E DD 000C PUSHL SP : 0884 ; 
00000006 00 1 FB 000C CALLS #1, EDTSSTI_INPCH : 
00000006 00 0 FB O0CE CALLS #0, EDT$$SC~NONREVID ; 0885 : 
00000006 8 1 44 0D MOVL #1, EDT$$G_SCR_CHG 3 0886 : 
000000006 00 1 DO 0000 MOVL #1, EDTS$G_MSGFLG : 0887 ; 
13 11 Q00E BRB 3$ : 0871 ; 
000000006 00 DD OO0ES 2$ PUSHL EDTS$A_10_FNAM : 0890 ; 
000000006 8F DD OO0EB PUSHL agDTs ERRINPF IL ; : 
000000006 00 Q Fe OOF | CALLS #2, EDTSSFIOPN_ERR : : 
0 58 0008 38: BLBS get. 4$ ; 0894 ; 
O1A9 31 O00FB BRW ; : 
24 AE BS OVOFE 4$ TSTW RHB_DESC > 0901 | ; 
03 12 00101 BNEQ © 5$ ; : 
0098 31 0103 RW 11$ : : 
14 AE 000000006 00 06 28 00106 5$ MOVC3 #6, EDTS$L_LNO_ZERO, LINNO > 0904 
14 AE 28 BE BO 0010F MOVW  @RHB_DESC+%, LINN : 0905 ; 
14 AE 000000006 90 81 00114 MP EDTSSL_LN_PREV, LINNO : 0907 : 
4 1F orice Lssu-8$ ; : 
50 67 3¢ OO11E MOVZWL $2_UP, RO : 0909 ; 
52 50 24 Ad Ai 00121 ADDW3 5S1-UP, RO, SAVES2 ; : 
51 50 80 o1 6 Vw RO? SAV ; : 
FA AZ 1 A9 CO 00129 ADDL2 EDfSS$L_LNO0+60, EDTSSL_LN_INCR ; , 
FE AZ 22 Ad D8 001 : ADWC = EDTSSL~LNO0+64, EDTSSL-LN_INCR+4 ; : 
52 67 B1 001 CMPW = DEST_UP, SAVES2 : : 
04 12 001 BNEQ 68 ; : 
$ D4 001 CLRL  MAX_LNO ; : 
11 0013A BRB 7$ ; : 
56 1 DO 0013Cc 6$: MOVL #1, MAX_LNO ; : 
67 1 8B 13F 7$: MOVW SAVED, BEST_uP $ : 
36 D5 00142 8$: TSTL § MAX_LNO : 0911 ; 
F 12 00144 BNEG  15$ ; : 
000000006 00 14 AE BO 00146 MOVW  LINNO, EDTSSL_LN_PREV : 0914 ; 
Oc AE 14 AE 14 MOVL — _LINNO, M2 : 0915 ; 
10 AE 18 AE 3C 001 MOVZWL LINNO+4, M2+4 ; ; 
04 =A 1 CLRQ. iP ; : 
50 10 158 VL #16, 1 ; ; 
04 AE 046 «A 1 15E 9$ ASHO = #1, P, P ; ; 
OA 6 0 £1 00164 C 1, M1, 10$ ; : 
04 AE oc AE co 168 ADDL2 Me. P ; : 
08 A 10 AE OD 1 ADWC M2, P ; : 
E 50 F4 00172 10$: SOBGEQ 1, 9$ ; ; 
oO BOR Ra ttng : ; 
5 68 00 0017F MOVL  EDT$$A_CUR_BUF, RO : 0916 ; 
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DISKSVMSMASTER:CEDT. 


t Hite 1é-epm1964 09:3):58 


pu 


- read a Line from the inpu 


EAINP = read a Line from the in 
EDTSS$RD_ILN 
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; Routine Size: 780 bytes, Routine Base: _EDTSCODE + 


; 413 iors 1 
414 1015 1 !<BLF/PAGE> 
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EDTSWFREAINP EDTSWFREAINP = read a Line from the input file 1b-Se -1984 :11:53 VAX-11 Bliss-32 V4.0-74 Page 12 
v04-000 EDTSSRD_ILN = read a Line from the input file 1 ~3ep-19 4 95:33 DISKSVMSMASTER: CEDT.SRC WEREAINP.BLI:1> (3) 
000000006 00 01 FB 0025 CALLS #1, STRSFREE1_DX : : 
24 AF OF PUSHAB RHB_DESC + 0957 : 
000000006 99 0 FB CALLS #1, STRSFREE1_Dx : : 
1 B0 F OVL ; RO t 0963 : 
000000006 8F DD a 23$: PUSHL #EDT$_MAXINPLIN : 0967 : 
A 1 FB 0027 CALLS #1, EDTSSFMT_MSG ; : 
4 AE 3F 7¢ PUSHAB RHB_DESC + 0969 : 
AE 9F OO27F PUSHAB FILE DESC : : 
990000 G 8F DD PUSHL #EDTSK_INPUT_FILE ; ; 
000006 8F DD PUSHL #EDTSK CLOSE : : 
000000006 9 4 FB 0 j CALLS #4, EDTSSCALLFIO 3 ; 
O.€ LBS =—s_- RO, -24$ ; : 
000000006 BF DD 00298 PUSHL #EDTS$_INPFILCLO + 0971 : 
6A 1 FB 0029E CALLS #1 EDTSSEMT $6 : : 
90000 006 00 04 0 Al 348: CLRL  EDT$$G_INPUT~OPN : 0973 : 
33 000000006 0 E9 OOCA7 25$:  BLBC  EDT$$G-INPUT-OPN, 27S + 0983 ; 
50 68 DO OO2AE MOVL  EDTS$A-CUR_BOF, RO ; : 
2A =A0 95 00281 TSTB 42 (RO) : : 
2B 13 00284 BEQL 27$ ; : 
4 AE 9F 00286 PUSHAB RHB_DESC + 0987 ; 
0 AE 9F 00289 PUSHAB FILE_DESC ; : 
00000000G 8F DD 0028 PUSHL #EDTSK_INPUT_FILE 3 : 
000000006 8F DD 00e2Cc PUSHL #EDT$K~CLOSE ; F 
000000006 00 04 FB 002C CALLS #4, EDTSSCALLFIO ; F 
09 0 €8 OO2CF BLBS RO, 26$ : ; 
000000006 8F DD 00 De PUSHL #EDTS$_INPFILCLO > 0989 ; 
6A 01 FB 002D CALLS #1, EDTSSFMT_MSG : ; 
000000006 00 D4 002DB 368: CLRL. EDT $$G_INPUT~OPN + 0991 : 
000000006 00 000000006 00 i 00261 27$:  MOVAB EDT$$Z~E0B_LN, EDTSSA_WK_LN > 0994 ; 
50 68 DO OOZEC MOVL  EDTS$A-CUR“BUF, RO : 0995 : 
gc AO B4 00 EF CLRW 1g¢R0) : ; 
A Ad 94 00 Fe CLRB = 42(RO) + 0996 3 
1C AE OF OOF PUSHAB FILE DESC + 1003 ; 
000000006 00 01 FB 00 FB CALLS #1, STRSFREE1_Dx : ; 
24 AE OF OOOFF PUSHAB RHB_DESC > 1004 : 
000000006 00 01 FB 00302 CALLS #1, STRSFREE1_DXx : 3 
50 04 00309 CLRL = RO + 1010 F 
04 00308 RET + 1011 3 
0000 : 
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EDTSwWFREAINP EDTSWFREAINP - read a Line from the input file gn3e -1984 :5 VAX-11 Bliss-32_V e 
104-000 EO TESRO NIN’ = Feed 3 tine from the UnBUt Fite jrgeertges MS isbi2y | PTRKSUMGMASTERSCEOT SRCSWEREAINP.BLI-1° 
3 218 1 13 1 END ! of module EDTSWFREAINP 

; 41 101 1 

; 418 1016 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 780 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

; qsansees SyE0G(§ sececoce Pages Processing 

A File Total Loaded Percent Mapped Time 

3 _$255$DUA28:CEDT.SRCJEDT.L32;1 377 47 12 40 00:00.2 

z ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

3 ~$255$DUA28:CSYSLIBISTARLET.L32;1 9776 7 0 581 00:04.1 


COMMAND QUALIFIERS 


heii tec imate se atc cpsttamicmemectat iat sceicchaiett dl MSRC$:WFREAINP.BLI/UPDATE=(ENHS: WF RE 


Size: 780 coge + 0 data bytes 

Run Time: 00:38.8 

Elapsed tae: 00:49.5 

Lines/CPU Min: 1570 

Lexemes/CPU-Min: 
ry Used: 253 pages 

Compication Complete 


~w 
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